home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / utilmus / hip223.lha / HippoPlayer / Support / HipPack.script < prev    next >
Text File  |  1996-01-18  |  1KB  |  54 lines
  1. . $VER: HipPack 1.0a © 1996 Jari Karjalainen 060196
  2. .key Pakkaus,Työhakemisto
  3. .bra {
  4. .ket }
  5. .def Pakkaus eiPakkaus
  6. .def Työhakemisto t:
  7. if not "{Pakkaus}" eq eiPakkaus
  8. setenv pakkausformaatti "{Pakkaus}"
  9.   if exists "{Työhakemisto}"
  10.   cd "{Työhakemisto}"
  11.   else
  12.   cd t:
  13.   endif
  14.   if not exists tmpdir
  15.   makedir tmpdir
  16.   endif
  17. failat 21
  18. search >nil: env:pakkausformaatti .lha
  19.   if not warn
  20.   lha -q x "{Pakkaus}" tmpdir/
  21.   else
  22.     search >nil: env:pakkausformaatti .zip
  23.     if not warn
  24.     unzip -q "{Pakkaus}" -d tmpdir/
  25.     else
  26.       search >nil: env:pakkausformaatti .lzx
  27.       if not warn
  28.       lzx -q1 x "{Pakkaus}" tmpdir/
  29.       else
  30.         search >nil: env:pakkausformaatti .arj
  31.         if not warn
  32.         cd tmpdir
  33.         unarj >nil: x "{pakkaus}"
  34.         cd /
  35.         else
  36.           search >nil: env:pakkausformaatti (#?.mod|mod.#?|#?.med|#?.s3m|#?.xm) pattern
  37.           if not warn
  38.           hip "{Pakkaus}"
  39.           endif
  40.         endif
  41.       endif
  42.     endif
  43.   endif
  44. hip `list tmpdir/(#?.mod|mod.#?|#?.s3m|#?.xm|#?.med) lformat "*"%p%n*""`
  45. waithip
  46. delete >nil: tmpdir all
  47. else
  48. set file `requestfile title="Valitse pakkaus/modi..." acceptpattern="(#?.lha|#?.lzx|#?.zip|#?.arj|#?.mod|mod.#?|#?.s3m|#?.xm|#?.med)" positive=Valittu negative=Peruutus`
  49. execute s:hippack "$file"
  50. endif
  51. lab end
  52. unsetenv pakkausformaatti
  53. unset file
  54.